home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / background_2612.txt < prev    next >
Text File  |  1989-02-26  |  7KB  |  307 lines
  1. -- background: 2612 from stack: in.1
  2. -- bmap block id: 2821
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: XCMDs
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9.   set scroll of field description to 0
  10.   set scroll of field syntax to 0
  11. end opencard
  12.  
  13.  
  14.  
  15. -- part 2 (field)
  16. -- low flags: 01
  17. -- high flags: 0000
  18. -- rect: left=55 top=22 right=56 bottom=338
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 2
  23. -- text size: 24
  24. -- style flags: 0
  25. -- line height: 32
  26. -- part name: Name
  27.  
  28.  
  29. -- part 3 (field)
  30. -- low flags: 00
  31. -- high flags: 4007
  32. -- rect: left=54 top=69 right=299 bottom=309
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 3
  37. -- text size: 9
  38. -- style flags: 0
  39. -- line height: 12
  40. -- part name: description
  41. ----- HyperTalk script -----
  42. on mousewithin
  43.   --This uses the ART hypertext method to link to another card.
  44.   --It calls the HyperText function in the stack script
  45.   if selection is not empty then put HyperText(selection) into it
  46. end mousewithin
  47.  
  48.  
  49.  
  50. -- part 6 (button)
  51. -- low flags: 00
  52. -- high flags: 2000
  53. -- rect: left=228 top=306 right=331 bottom=255
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 1014 / 1014
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Prev
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   if the optionkey is down then pass mouseup
  65.   visual wipe right very fast
  66.   go to previous card
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 7 (button)
  72. -- low flags: 00
  73. -- high flags: 2000
  74. -- rect: left=280 top=306 right=331 bottom=307
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 1013 / 1013
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Next
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   if the optionkey is down then pass mouseup
  86.   visual wipe left very fast
  87.   go to next card
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 9 (button)
  93. -- low flags: 00
  94. -- high flags: 2000
  95. -- rect: left=456 top=301 right=329 bottom=493
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 11645 / 11645
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Return
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   if the optionkey is down then pass mouseup
  107.   visual effect iris close
  108.   go first card
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 10 (field)
  114. -- low flags: 00
  115. -- high flags: 0007
  116. -- rect: left=311 top=69 right=299 bottom=493
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 0
  120. -- font id: 3
  121. -- text size: 9
  122. -- style flags: 0
  123. -- line height: 12
  124. -- part name: Syntax
  125. ----- HyperTalk script -----
  126. on mousewithin
  127.   --This uses the ART hypertext method to link to another card.
  128.   --It calls the HyperText function in the stack script
  129.   if selection is not empty then put HyperText(selection) into it
  130. end mousewithin
  131.  
  132.  
  133.  
  134. -- part 12 (button)
  135. -- low flags: 00
  136. -- high flags: A003
  137. -- rect: left=332 top=306 right=326 bottom=448
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Resource Mover
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   if the optionkey is down then pass mouseup
  149.   ResCopy
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 13 (field)
  155. -- low flags: 01
  156. -- high flags: 0000
  157. -- rect: left=255 top=311 right=327 bottom=282
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 3
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: PageNumber
  166.  
  167.  
  168. -- part 22 (button)
  169. -- low flags: 00
  170. -- high flags: 2004
  171. -- rect: left=2 top=74 right=117 bottom=49
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 14767 / 14767
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: About...
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   if the optionkey is down then pass mouseup
  183.  
  184.   visual iris open to gray
  185.   visual iris close to black
  186.   visual iris open to gray
  187.   visual iris close
  188.   go background information
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 23 (button)
  194. -- low flags: 00
  195. -- high flags: 2004
  196. -- rect: left=2 top=119 right=162 bottom=49
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 29114 / 29114
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Back
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   if the optionkey is down then pass mouseup
  208.  
  209.   visual barn door close to black
  210.   visual barn door open
  211.   pop card
  212. end mouseUp
  213.  
  214.  
  215.  
  216. -- part 24 (button)
  217. -- low flags: 00
  218. -- high flags: 2004
  219. -- rect: left=2 top=164 right=207 bottom=49
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 1011 / 1011
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: Home
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   if the optionkey is down then pass mouseup
  231.   visual dissolve to black
  232.   visual dissolve
  233.   go first card of home
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 25 (button)
  239. -- low flags: 00
  240. -- high flags: 2004
  241. -- rect: left=2 top=209 right=252 bottom=49
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 1000 / 1000
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Open Stack
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   if the optionkey is down then pass mouseup
  253.   domenu "open stack..."
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 26 (button)
  259. -- low flags: 00
  260. -- high flags: 2004
  261. -- rect: left=2 top=254 right=297 bottom=49
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 17343 / 17343
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Launch Application
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   if the optionkey is down then pass mouseup
  273.   visual venetian blinds to gray
  274.   visual venetian blinds to black
  275.   visual venetian blinds to gray
  276.   visual venetian blinds
  277.   go to background "Mini Hyperstation"
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 27 (button)
  283. -- low flags: 00
  284. -- high flags: 2004
  285. -- rect: left=2 top=299 right=342 bottom=49
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 21786 / 21786
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: Menus Off
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   if the optionkey is down then pass mouseup
  297.  
  298.   If the short name of the target is "Menus On" then
  299.     set the name of the target to "Menus Off"
  300.     show menubar
  301.   else
  302.     set the name of the target to "Menus On"
  303.     hide menubar
  304.   end if
  305. end mouseUp
  306.  
  307.